home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 18
/
AMIGAplus Sonderheft 18 (1999)(ICP)(DE)[!].iso
/
Forum
/
MichaelRoth
/
3-3-99
/
code
/
ROL.SUB
< prev
next >
Wrap
Text File
|
1998-08-31
|
307b
|
10 lines
; A0 Buffer
; D0 Länge
; D2 Bitposition
.loop1
lea (a0,d0),a2 ; Länge berechnen
rol.b d2,(a0)+
cmp.l a0,a2 ; Prüfen ob Buffer am Ende
bhi.s .loop1 ; Nein -> nächste schleife
rts